home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / day'of'week.l < prev    next >
Text File  |  2007-02-28  |  257b  |  10 lines
  1. 9000 FUNC DAY'OF'WEEK(MONTH,DAY,YEAR) CLOSED
  2. 9010 IF MONTH<=2 THEN
  3. 9020 MONTH:+12
  4. 9030 YEAR:-1
  5. 9040 ENDIF 
  6. 9050 X:=DAY+2*MONTH+INT(.6*(MONTH+1))
  7. 9060 X:+YEAR+INT(YEAR/4)-INT(YEAR/100)+INT(YEAR/400)+1
  8. 9070 RETURN (INT((X MOD 7)+.5))
  9. 9080 ENDFUNC DAY'OF'WEEK
  10.